home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / arexx / ole1v10a.lha / OLE_System / rexx / telephone.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1995-01-31  |  1.9 KB  |  101 lines
  1. /*
  2.  * telephone.rexx
  3.  *
  4.  * USAGE: telephone.rexx
  5.  *
  6.  * telephone.rexx
  7.  *
  8.  * $(C): (1994, Rocco Coluccelli, Bologna)
  9.  * $VER: telephone.rexx 0.04 (10.Dec.1994)
  10.  */
  11.  
  12. ADDRESS COMMAND
  13.  
  14. MAXLINE = 80
  15.  
  16. RUN '>NIL: Multiview 8svx/telefono PORTNAME OLE_PLAY1'
  17. RUN '>NIL: Multiview 8svx/russata PORTNAME OLE_PLAY2'
  18. ADDRESS OLE_PLAY1 WINDOWTOBACK
  19. ADDRESS OLE_PLAY2 WINDOWTOBACK
  20.  
  21. ADDRESS OLE_PLAY1 DOTRIGGERMETHOD 'PLAY'
  22. WAIT 2
  23. ADDRESS OLE_PLAY2 DOTRIGGERMETHOD 'PLAY'
  24. WAIT 1
  25. ADDRESS OLE_PLAY1 DOTRIGGERMETHOD 'PLAY'
  26.  
  27. s1 = "Please, Miss Dossmasher, pick up the phone."
  28. CALL Print(s1,)
  29. ''SAY '-m -s150 -p90' s1
  30.  
  31. ADDRESS OLE_PLAY1 DOTRIGGERMETHOD 'PLAY'
  32. WAIT 2
  33.  
  34. s1 = "You're sleeping!"
  35. s2 = "Wake up!"
  36. s3 = "Respond on that fucking telephone!"
  37. CALL Print(s1,)
  38. ''SAY '-m -s120 -p120' s1
  39. ADDRESS OLE_PLAY1 DOTRIGGERMETHOD 'PLAY'
  40. CALL Print(s2 s3,)
  41. ''SAY '-m -s160 -p70' s2 s3
  42.  
  43. WAIT 1
  44. ADDRESS OLE_PLAY1 DOTRIGGERMETHOD 'PLAY'
  45. s1 = "I'm very sorry, but your way of talking is so"
  46. s2 = "relaxing"
  47. CALL Print(s1 s2 || '.',)
  48. ''SAY '-f -s100 -p260' s1
  49. ''SAY '-f -s50 -p240' s2
  50.  
  51. ADDRESS OLE_PLAY2 "OPEN NAME 8svx/pugno"
  52. ADDRESS OLE_PLAY1 "OPEN NAME 8svx/canarino"
  53.  
  54. s1 = "I see!"
  55. s2 = "So,"
  56. s3 = "goodnigth Miss Dossmasher!"
  57. CALL Print(s1,)
  58. ''SAY '-m -s90 -p80' s1
  59. ADDRESS OLE_PLAY2 DOTRIGGERMETHOD 'PLAY'
  60. WAIT 1
  61. ADDRESS OLE_PLAY2 DOTRIGGERMETHOD 'PLAY'
  62. WAIT 1
  63. ADDRESS OLE_PLAY2 DOTRIGGERMETHOD 'PLAY'
  64. ADDRESS OLE_PLAY1 DOTRIGGERMETHOD 'PLAY'
  65. CALL Print(s2 s3,)
  66. ''SAY '-m -s80 -p110' s2
  67. ''SAY '-m -s120 -p130' s3
  68.  
  69. ADDRESS OLE_PLAY2 QUIT
  70. ADDRESS OLE_PLAY1 QUIT
  71.  
  72. EXIT 0
  73.  
  74.  
  75. /*
  76.  *    procedure to split text onto lines of MAXLINE characters length
  77.  */
  78. Print: PROCEDURE EXPOSE MAXLINE
  79.  
  80.     DO i = 1 TO ARG()
  81.  
  82.         line = ARG(i)
  83.         DO FOREVER
  84.  
  85.             IF LENGTH(line) <= MAXLINE THEN DO
  86.                 ECHO line
  87.                 LEAVE
  88.                 END
  89.  
  90.             pos = MAX(LASTPOS(' ',line,MAXLINE),POS(' ',line))
  91.             IF pos = 0 THEN DO
  92.                 ECHO line
  93.                 LEAVE
  94.                 END
  95.  
  96.             ECHO LEFT(line,pos); line = SUBSTR(line,pos + 1)
  97.         END
  98.     END
  99.  
  100. RETURN
  101.